|
8
|
How do I put a picture on the control's center top side
With AxScrollBar1
.Picture = AxScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = EXSCROLLBARLib.PictureDisplayEnum.UpperCenter
.Value = 50
.set_VisiblePart(EXSCROLLBARLib.PartEnum.exBackgroundPart,False)
.GetOcx().BackColor = &H80000004
End With
|
|
7
|
How do I put a picture on the control's right top corner
With AxScrollBar1
.Picture = AxScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = EXSCROLLBARLib.PictureDisplayEnum.UpperRight
.set_VisiblePart(EXSCROLLBARLib.PartEnum.exBackgroundPart,False)
.GetOcx().BackColor = &H80000004
.Value = 50
End With
|
|
6
|
How do I put a picture on the control's left top corner
With AxScrollBar1
.Picture = AxScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.PictureDisplay = EXSCROLLBARLib.PictureDisplayEnum.UpperLeft
.set_VisiblePart(EXSCROLLBARLib.PartEnum.exBackgroundPart,False)
.GetOcx().BackColor = &H80000004
.Value = 50
End With
|
|
5
|
How do I put a picture on the control's background
With AxScrollBar1
.Picture = AxScrollBar1.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
.set_VisiblePart(EXSCROLLBARLib.PartEnum.exBackgroundPart,False)
.GetOcx().BackColor = &H80000004
End With
|
|
4
|
How can I change the size of control's font
With AxScrollBar1
.Font.Size = 12
.ForeColor = RGB(255,0,0)
.set_Caption(EXSCROLLBARLib.PartEnum.exThumbPart,"<img>0</img>thumb")
End With
|
|
3
|
How do I change the control's font
With AxScrollBar1
.Font.Name = "Tahoma"
.ForeColor = RGB(255,0,0)
.set_Caption(EXSCROLLBARLib.PartEnum.exThumbPart,"<img>0</img>thumb")
End With
|
|
2
|
How can I change the control's foreground color
With AxScrollBar1
.ForeColor = RGB(255,0,0)
.set_Caption(EXSCROLLBARLib.PartEnum.exThumbPart,"<img>0</img>thumb")
End With
|
|
1
|
How can I change the control's background color
With AxScrollBar1
.BackColor = RGB(0,255,0)
.set_VisiblePart(EXSCROLLBARLib.PartEnum.exBackgroundPart,False)
End With
|